﻿'
' Boogaloo® - http://www.mindfly.com
' Copyright (c) 2008
' by Mindfly, Inc.
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
' INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Imports Boogaloo.Core.BLL

Namespace UI


    Public Class BaseAdminPage
        Inherits Boogaloo.Base.UI.BasePage


        Protected Overrides Sub OnPreInit(ByVal e As System.EventArgs)
            MyBase.OnPreInit(e)

            ' Set the master and theme
            If String.IsNullOrEmpty(Me.MasterPageFile) Then Me.MasterPageFile = String.Format("{0}{1}", Groove.path_admin_masters, CoreSettings.GetSetting("ADMIN_MasterPage"))


            If Not String.IsNullOrEmpty(CoreSettings.GetSetting("ADMIN_Theme")) Then Me.Theme = CoreSettings.GetSetting("ADMIN_Theme")



        End Sub

        Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)

            ' Remove the generated stylesheets
            '-----------------------------------------------------------------------
            If Me.Theme IsNot Nothing Then


                RemoveAppThemeGeneratedHtmlLinks()

                With ThemeCSSManifest.GetThemeCSSManifest(Me.Theme)

                    Dim links As String = .GetHeaderHtml()

                    If Not String.IsNullOrEmpty(links) Then Page.Header.Controls.Add(New LiteralControl(links))

                End With

            End If

            MyBase.Render(writer)

        End Sub



        Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
            MyBase.OnLoad(e)

        End Sub


    End Class


End Namespace